inherited fConsulta: TfConsulta
  Left = 160
  Top = 102
  Caption = ''
  ClientHeight = 573
  ClientWidth = 800
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited StsBr: TStatusBar
    Top = 554
    Width = 800
    Panels = <
      item
        Text = 'Hint do Cadastro'
        Width = 650
      end
      item
        Text = 'Fechado'
        Width = 150
      end>
  end
  inherited Panel2: TPanel
    Top = 513
    Width = 800
    BevelInner = bvRaised
    object BitBtn1: TBitBtn [0]
      Left = 90
      Top = 4
      Width = 85
      Height = 33
      Hint = 'Procurar'
      Caption = 'Cadastro'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BitBtn1Click
      Glyph.Data = {
        76060000424D7606000000000000360400002800000018000000180000000100
        0800000000004002000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00090909001212
        12001F1F1F002C2C2C003939390045454500525252005F5F5F006C6C6C007878
        780085858500929292009F9F9F00ABABAB00B8B8B800C5C5C500D2D2D200DEDE
        DE00EBEBEB00F8F8F800F0FBFF00A4A0A000C0DCC000F0CAA60000003E000000
        5D0000007C0000009B000000BA000000D9000000F0002424FF004848FF006C6C
        FF009090FF00B4B4FF0000143E00001E5D0000287C0000329B00003CBA000046
        D9000055F000246DFF004885FF006C9DFF0090B5FF00B4CDFF00002A3E00003F
        5D0000547C0000699B00007EBA000093D90000AAF00024B6FF0048C2FF006CCE
        FF0090DAFF00B4E6FF00003E3E00005D5D00007C7C00009B9B0000BABA0000D9
        D90000F0F00024FFFF0048FFFF006CFFFF0090FFFF00B4FFFF00003E2A00005D
        3F00007C5400009B690000BA7E0000D9930000F0AA0024FFB60048FFC2006CFF
        CE0090FFDA00B4FFE600003E1400005D1E00007C2800009B320000BA3C0000D9
        460000F0550024FF6D0048FF85006CFF9D0090FFB500B4FFCD00003E0000005D
        0000007C0000009B000000BA000000D9000000F0000024FF240048FF48006CFF
        6C0090FF9000B4FFB400143E00001E5D0000287C0000329B00003CBA000046D9
        000055F000006DFF240085FF48009DFF6C00B5FF9000CDFFB4002A3E00003F5D
        0000547C0000699B00007EBA000093D90000AAF00000B6FF2400C2FF4800CEFF
        6C00DAFF9000E6FFB4003E3E00005D5D00007C7C00009B9B0000BABA0000D9D9
        0000F0F00000FFFF2400FFFF4800FFFF6C00FFFF9000FFFFB4003E2A00005D3F
        00007C5400009B690000BA7E0000D9930000F0AA0000FFB62400FFC24800FFCE
        6C00FFDA9000FFE6B4003E1400005D1E00007C2800009B320000BA3C0000D946
        0000F0550000FF6D2400FF854800FF9D6C00FFB59000FFCDB4003E0000005D00
        00007C0000009B000000BA000000D9000000F0000000FF242400FF484800FF6C
        6C00FF909000FFB4B4003E0014005D001E007C0028009B003200BA003C00D900
        4600F0005500FF246D00FF488500FF6C9D00FF90B500FFB4CD003E002A005D00
        3F007C0054009B006900BA007E00D9009300F000AA00FF24B600FF48C200FF6C
        CE00FF90DA00FFB4E6003E003E005D005D007C007C009B009B00BA00BA00D900
        D900F000F000FF24FF00FF48FF00FF6CFF00FF90FF00FFB4FF002A003E003F00
        5D0054007C0069009B007E00BA009300D900AA00F000B624FF00C248FF00CE6C
        FF00DA90FF00E6B4FF0014003E001E005D0028007C0032009B003C00BA004600
        D9005500F0006D24FF008548FF009D6CFF00B590FF00CDB4FF00070707070404
        0704040707070707074407444407070707070707070704040704040707070707
        0744074444070707070707070707040407040407070707070744074444070707
        0707070707070404070404070007070707440744440707070707070707070404
        0704040700070707074407444407070707070707070704040704040700070707
        2F2F2F2F2F070707070707070707040407040407000707072F2F2F2F2F070707
        070707074607040408040407000707462F2F2F2F2F4607070707070707080404
        04040408460807080C0C0C0C0C08460707070704040804040404040808070700
        0C0C040C0C0000070707070404080404040404080407070C040C0C0C0C0C0C07
        0707070404080404050404070407070C040C0C0C0C0C0C070707070404040408
        050404080407070C040C000C0C0C0C070707070804040407050404040407070C
        040C000C0C0C0C07070707070404040F050404040707070C0C0C0F08000C0C07
        070707070404040F050404040707070C0C000C0F000C0C07070707070404040F
        050404040707070C0C000C0F000C080707070707070707070007070707070707
        0707460007070707070707070707070046070707070707070800464600070707
        0707070707070846460807070707070700004646000707070707070707070000
        0000070707070707070000000007070707070707070708000008070707070707
        0707000007070707070707070707070800070707070707070707080807070707
        0707070707070707070707070707070707070707070707070707}
    end
    inherited btnProcurar: TBitBtn [1]
      Left = 179
      OnClick = btnProcurarClick
    end
    inherited btngravar: TBitBtn [2]
      Left = 268
    end
    inherited btnCancelar: TBitBtn [3]
      Left = 357
    end
    inherited btnIncluir: TBitBtn [4]
      Left = 268
    end
    inherited btnexcluir: TBitBtn [5]
      Left = 357
    end
    object BitBtn3: TBitBtn [6]
      Left = 446
      Top = 4
      Width = 85
      Height = 33
      Hint = 'Procurar'
      Caption = 'Recibo'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      Glyph.Data = {
        8A040000424D8A040000000000007600000028000000210000001D0000000100
        0800000000001404000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00080808080808
        08080808080800000008080808080808080808080808080808080857535C0808
        0808080808080808000008070700000808080808080808080808080808080857
        535C080808080808080800000808080707070700000808080808080808080808
        08080857535C0808080808080000080808080700000707070700000808080808
        0808080808080857535C08080808000008080808070708070700000707070700
        000808080808080808080857535C080800000808080807070807080707070700
        00070707070000080808080808080857535C0800080808080707080808070807
        0707070707000007070707000008080808080857535C08070808070708080808
        080708070707070707070700000707070700080808080857535C080707070808
        08080808080708070707070707070707070000070700080808080857535C0707
        0807080808080808080708070707070707070707070707000000080808080857
        535C070F080708080808080808070F0707070707070707070707070707000008
        08080857535C070F08070808080808080F070708080707070707070707070707
        0707000008080857535C070F0807080808080F0F080808070708080707070707
        070707070707000700080857535C070F080708080F0F08080808080808070708
        08070707070707070707000807000857535C070F08070F0F0808080909080807
        0708080707080807070707070707000807070857535C070F0F070708080A0A08
        080707080808080800070708080707070707000708080857535C07070F080807
        0708080707080808080800000F080007070808070707000808080857535C0808
        07070F08080707070708080800000F0F0F0F0008080707080807000808080857
        535C0808080807070F080807070700000F0F0F0C0C0F08000708080707080808
        08080857535C08080808080807070F080807070F0F0C0C0F0F0F0F0007070708
        0808080808080857535C080808080808080807070F0808070F0F0F0F0C0C0F08
        000808080808080808080857535C0808080808080808080807070F070F0F0C0C
        0F0F0F0F080008080808080808080857535C0808080808080808080808080707
        070F0F0F0F0C0C0F0F0800080808080808080857535C08080808080808080808
        08080808070F0F0C0C0F0F0F0F0F08000808080808080857535C080808080808
        080808080808080808070F0F0F0F0F0C0C0F0F080000080808080857535C0808
        0808080808080808080808080808070F0F0C0C0F0F0F0F0F0707080808080857
        535C0808080808080808080808080808080808070F0F0F0F0F0F070708080808
        08080857535C080808080808080808080808080808080808070F0F0F07070808
        0808080808080857535C08080808080808080808080808080808080808070707
        080808080808080808080857535C}
    end
    object BitBtn2: TBitBtn [7]
      Left = 535
      Top = 4
      Width = 85
      Height = 33
      Hint = 'Procurar'
      Caption = 'Consulta'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = BitBtn2Click
      Glyph.Data = {
        66070000424D660700000000000036000000280000001A000000170000000100
        18000000000030070000C30E0000C30E00000000000000000000BEBEBEBEBEBE
        BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE9A9A9A7A7A7A2525251D1D1D7F7F
        7F9C9C9CBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE
        BEBEBEBEBEBEBEBE0000BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE9595956C
        6C6C5858586F6F6FA3A3A37F7F7F4646464242426C6C6C9A9A9ABEBEBEBEBEBE
        BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE0000BEBEBEBEBEBE
        BEBEBEBEBEBEAFAFAF494949616161787878B6B6B6B5B5B56969692F2F2F7070
        707676765050504C4C4C494949B6B6B6BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE
        BEBEBEBEBEBEBEBE0000BEBEBEB9B9B9B2B2B24D4D4D3A3A3AA1A1A1AEAEAEBB
        BBBB9292929494949494946B6B6B2A2A2A2C2C2C7777777070706B6B6B2C2C2C
        535353B2B2B2BABABABEBEBEBEBEBEBEBEBEBEBEBEBEBEBE0000B5B5B56C6C6C
        3232329B9B9BBDBDBDAFAFAF9F9F9F8F8F8FB5B5B58F8F8FA3A3A37F7F7F7F7F
        7F6D6D6D1F1F1F4343435F5F5F7D7D7D6262622222226C6C6C929292BEBEBEBE
        BEBEBEBEBEBEBEBE0000A5A5A56E6E6EBFBFBFA8A8A8A0A0A09D9D9DAEAEAEBF
        BFBFBBBBBB8F8F8FA3A3A37F7F7F7F7F7F7F7F7F7F7F7F5858583B3B3B424242
        5555557F7F7F5151514040407C7C7CBEBEBEBEBEBEBEBEBE0000B2B2B2878787
        959595A4A4A4ABABABBFBFBFBFBFBFBFBFBFBBBBBB8F8F8FA3A3A37F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F7F5555554646462B2B2B646464777777323232BE
        BEBEBEBEBEBEBEBE00008888889B9B9B979797AFAFAFBFBFBFBFBFBFBFBFBFBF
        BFBFBBBBBB909090A6A6A67F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
        7A7A7A6F6F6F3535351A1A1A2D2D2DB4B4B4BEBEBEBEBEBE0000979797E7E7E7
        9B9B9BAFAFAFBFBFBFBFBFBFBFBFBFBFBFBFC9C9C9969696BABABA9191918282
        827F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7979791D1D1D3E
        3E3EAAAAAABEBEBE0000979797E7E7E79B9B9BAFAFAFBFBFBFBFBFBFCFCFCFDF
        DFDFDBDBDB9F9F9F9F9F9F9F9F9F9F9F9F9999997F7F7F7F7F7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F5F5F5F1E1E1E555555ACACAC0000979797E7E7E7
        9B9B9BAFAFAFC4C4C4EDEDEDDFDFDFD1D1D1C1C1C1BFBFBFB7B7B7ADADAD9696
        96969696ADADAD9393937F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F5F5F5F4B
        4B4B7A7A7A3F3F3F0000979797EAEAEA9E9E9ECECECEEBEBEBBDC7BDAACAAA50
        5AD93131EDB7B7B7A4A4A48D8D8DB0B0B0B0B0B0848484969696B1B1B1898989
        8484847F7F7F7F7F7F7F7F7F5F5F5F4F4F4F9898987E7E7E00008F8F8FE0E0E0
        BBBBBB939393A9A9A988BF883BEB3B88BF88A9A9A9939393A6A6A6BFBFBFBFBF
        BF8383836F6F6F757575666666A5A5A5A3A3A39393938585857F7F7F60606042
        4242ADADADBEBEBE0000A0A0A0A1A1A19F9F9FBBBBBBA2A2A29F9F9F9D9D9D88
        8888838383BFBFBFBFBFBF7F7F7F595959878787B4B4B4EEEEEE373737969696
        9F9F9F9D9D9D9F9F9F9E9E9E606060555555BEBEBEBEBEBE0000BEBEBEB8B8B8
        AEAEAE999999969696C0C0C0AFAFAF8E8E8E8080807777772F2F2F898989BFBF
        BFFFDBDBFF3F3FFFABABABABAB414141999999AFAFAF999999919191A6A6A6A3
        A3A3BEBEBEBEBEBE0000BEBEBEBEBEBEBEBEBEBBBBBBB4B4B48E8E8EA5A5A5B4
        B4B4B8B8B8878787A8A8A8F1F1F1FF5C5CFF5959FFE0E0FFD0D0FCF2F2343434
        7676768D8D8DABABABBABABABEBEBEBEBEBEBEBEBEBEBEBE0000BEBEBEBEBEBE
        BEBEBEBEBEBEBEBEBEBEBEBEAAAAAA979797AAAAAAAEAEAEA5A5A5CFCFCFFFFF
        FFFF9F9FFF8787FF5F5FFFD7D7C7C7C75858589B9B9BBEBEBEBEBEBEBEBEBEBE
        BEBEBEBEBEBEBEBE0000BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE
        BEBEA5A5A5A1A1A1919191A2A2A2F1F1F1FF8F8FFFB9B9FFAEAEFF6F6FFBF2F2
        BDBDBD6161619C9C9CBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE0000BEBEBEBEBEBE
        BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBABABAB0B0B0919191C5C5
        C5FFD9D9FF3737FF8888FFC7C7FFFBFBFAFAFAC3C3C34D4D4DABABABBEBEBEBE
        BEBEBEBEBEBEBEBE0000BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE
        BEBEBEBEBEBEBEBEBEBEBEBCBCBC969696C8C6C6F8F0F0FFE0E0FFCFCFFF4040
        FF7575FEFEFECFCFCF333333474747BEBEBEBEBEBEBEBEBE0000BEBEBEBEBEBE
        BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE
        BE9C9C9CC3C3C3F5A0A0FF6767FFF5F5F8F8F8DADADAB6B6B69B9B9BA2A2A2BE
        BEBEBEBEBEBEBEBE0000BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE
        BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB9B9B9A1A1A1C3C3C3F7F7F7DBDBDB
        ACACACA1A1A1A4A4A4BABABABEBEBEBEBEBEBEBEBEBEBEBE0000BEBEBEBEBEBE
        BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE
        BEBEBEBEB9B9B99D9D9D949494929292B2B2B2B8B8B8BEBEBEBEBEBEBEBEBEBE
        BEBEBEBEBEBEBEBE0000}
    end
    inherited btnSair: TBitBtn [8]
      Left = 624
    end
  end
  inherited Panel3: TPanel
    Width = 800
    inherited DBTextDestaque1: TDBText
      Left = 214
      Top = 6
      Width = 581
      DataField = 'NOME'
    end
    inherited DBTextDestaque: TDBText
      Left = 216
      Top = 5
      Width = 581
      DataField = 'NOME'
    end
    object DBText1: TDBText
      Left = 79
      Top = 6
      Width = 78
      Height = 28
      DataField = 'COD_CONSULTA'
      DataSource = DtSrc
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -24
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object DBText2: TDBText
      Left = 81
      Top = 6
      Width = 79
      Height = 28
      DataField = 'COD_CONSULTA'
      DataSource = DtSrc
      Font.Charset = ANSI_CHARSET
      Font.Color = 8344832
      Font.Height = -24
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label11: TLabel
      Left = 3
      Top = 10
      Width = 62
      Height = 13
      Caption = 'N'#186' Consulta.:'
    end
  end
  object PageControl1: TPageControl [3]
    Left = 0
    Top = 41
    Width = 800
    Height = 472
    ActivePage = TabSheet1
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = '   CONSULTA   '
      object Label3: TLabel
        Left = 8
        Top = 99
        Width = 98
        Height = 13
        Caption = 'Sintomas atuais :'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 612
        Top = 69
        Width = 103
        Height = 13
        Caption = 'Press'#227'o Arterial ........:'
      end
      object Label5: TLabel
        Left = 418
        Top = 90
        Width = 66
        Height = 13
        Caption = 'Temperatura :'
      end
      object Label7: TLabel
        Left = 9
        Top = 219
        Width = 118
        Height = 13
        Caption = 'Exames Solicitados :'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 9
        Top = 319
        Width = 153
        Height = 13
        Caption = 'Medicamentos  Indicados :'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 578
        Top = 10
        Width = 85
        Height = 13
        Caption = 'Data Consulta.....:'
      end
      object Label12: TLabel
        Left = 612
        Top = 407
        Width = 98
        Height = 13
        Caption = 'Valor da Consulta ...:'
      end
      object SpeedButton1: TSpeedButton
        Left = 264
        Top = 402
        Width = 64
        Height = 40
        Caption = 'Primeiro'
        Flat = True
        Glyph.Data = {
          E6040000424DE604000000000000360000002800000013000000140000000100
          180000000000B0040000C30E0000C30E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF8000804080
          803F37007F7F7F7F7F7FBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBF7F7F7F7F7F7F7F7F7F8000804080803F3700000080
          0000807F7F7F7F7F7FBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF7F7F
          7F7F7F7F7F7F7F7F7F7F7F7F7F8000804080803F37000000808000800000807F
          7F7F7F7F7F7F7F7FBFBFBF000000BFBFBF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F7F7F7F8000804080803F3700000080000080800080000080BFBFBFBFBF
          BFBFBFBFBFBFBF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F80
          00804080803F37000000800000800000808000803F37003F37003F37003F3700
          000080000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF8000804080803F37
          000000800000800000800000808000800000808000800000800000FF0000FF00
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF8000804080803F3700000080000080
          000080000080000080000080800080000080800080FFC8CF0000FF000000BFBF
          BFBFBFBFBFBFBFBFBFBF8000804080803F370000008000008000008000008000
          0080000080800080000080800080000080BFBFBF8000FF000000BFBFBFBFBFBF
          BFBFBF8000803F37003F37008000808000808000808000808000808000808000
          80800080800080800080800080FFC8CF8000FF000000BFBFBFBFBFBFBFBFBF80
          00800000800000FF0000FF0000FF0000FF8000FF0000FF8000FF0000FF0000FF
          0000FF8000FF8000FFBFBFBF8000FF000000BFBFBFBFBFBFBFBFBF0000808000
          80FFC8CF8000FFFFC8CF8000FFFFC8CF8000FFFFC8CF8000FF0000FF8000FF80
          00FF8000FFFFC8CF8000FF000000BFBFBFBFBFBFBFBFBFBFBFBF000080800080
          FFC8CF8000FFFFC8CF8000FFFFC8CF8000FFFFC8CF8000FFFFC8CF8000FF8000
          FFBFBFBF8000FF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000080800080FF
          C8CF8000FFFFC8CF8000FFFFC8CF8000FFFFC8CFBFBFBFFFC8CFBFBFBFFFC8CF
          8000FF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000080000080FFC8
          CF8000FFFFC8CF8000FFFFC8CFBFBFBF0000FF0000FF0000FF0000FF0000FF00
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF800080000080FFC8CF
          8000FFFFC8CF8000FFFFC8CF8000FFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF800080000080FFC8CF80
          00FFFFC8CFBFBFBF8000FFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF800080000080FFC8CF8000
          FFFFC8CF8000FFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF800080000080FFC8CFBFBFBF
          8000FFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF8000800000800000FF0000FFBF
          BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF8000808000800000FFBFBFBFBFBF
          BFBFBFBFBFBFBF000000}
        Layout = blGlyphTop
        Transparent = False
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 328
        Top = 402
        Width = 64
        Height = 40
        Caption = 'Anterior'
        Flat = True
        Glyph.Data = {
          E6040000424DE604000000000000360000002800000013000000140000000100
          180000000000B0040000C30E0000C30E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F006030
          2F3F37007F7F7F7F7F7FBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBF7F7F7F7F7F7F7F7F7F7F7F0060302F3F3700007F00
          007F007F7F7F7F7F7FBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF7F7F
          7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F0060302F3F3700007F00A0983F007F007F
          7F7F7F7F7F7F7F7FBFBFBF000000BFBFBF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F7F7F7F7F7F0060302F3F3700007F00007F00A0983F007F00BFBFBFBFBF
          BFBFBFBFBFBFBF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F003F37003F3700007F00007F00007F00A0983F3F37003F37003F37003F3700
          007F00000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F003F37003F37
          00007F00007F00007F00007F00A0983F007F00A0983F007F0000FF0000FF0000
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F003F37003F3700007F00007F00
          007F00007F00007F00007F00A0983F007F00A0983FFFC8CF00FF00000000BFBF
          BFBFBFBFBFBFBFBFBFBF7F7F003F37003F3700007F00007F00007F00007F0000
          7F00007F00A0983F007F00A0983F007F00BFBFBF90FF2F000000BFBFBFBFBFBF
          BFBFBF7F7F003F37003F3700A0983FA0983FA0983FA0983FA0983FA0983FA098
          3FA0983FA0983FA0983FA0983FFFC8CF90FF2F000000BFBFBFBFBFBFBFBFBF7F
          7F00007F0000FF0000FF0000FF0000FF0090FF2F00FF0090FF2F00FF0000FF00
          00FF0090FF2F90FF2FBFBFBF90FF2F000000BFBFBFBFBFBFBFBFBF007F007F7F
          00FFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2F00FF0090FF2F90
          FF2F90FF2FFFC8CF90FF2F000000BFBFBFBFBFBFBFBFBFBFBFBF007F007F7F00
          FFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2F90FF
          2FBFBFBF90FF2F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF007F007F7F00FF
          C8CF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CFBFBFBFFFC8CFBFBFBFFFC8CF
          90FF2F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF007F00007F00FFC8
          CF90FF2FFFC8CF90FF2FFFC8CFBFBFBF00FF0000FF0000FF0000FF0000FF0000
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F007F00FFC8CF
          90FF2FFFC8CF90FF2FFFC8CF90FF2FBFBFBFBFBFBFBFBFBFBFBFBF000000BFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F007F00FFC8CF90
          FF2FFFC8CFBFBFBF90FF2FBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F007F00FFC8CF90FF
          2FFFC8CF90FF2FBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F007F00FFC8CFBFBFBF
          90FF2FBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F007F0000FF0000FF00BF
          BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F7F7F0000FF00BFBFBFBFBF
          BFBFBFBFBFBFBF000000}
        Layout = blGlyphTop
        Transparent = False
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 456
        Top = 402
        Width = 64
        Height = 40
        Caption = #218'ltimo'
        Flat = True
        Glyph.Data = {
          E6040000424DE604000000000000360000002800000013000000140000000100
          180000000000B0040000CE0E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBF7F7F7F7F7F7F3F3700408080800080BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF7F7F7F7F
          7F7F0000800000803F37004080808000807F7F7F7F7F7F7F7F7FBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF7F7F7F7F7F7F7F7F7F0000
          808000800000803F37004080808000807F7F7F7F7F7F7F7F7F7F7F7F7F7F7FBF
          BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF000080800080
          0000800000803F37004080808000807F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F7FBFBFBF0000000000803F37003F37003F37003F370080008000008000
          00800000803F37004080808000807F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F0000000000FF0000FF0000808000800000808000800000800000800000
          800000803F3700408080800080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          00000000FFFFC8CF800080000080800080000080000080000080000080000080
          0000803F3700408080800080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000008000
          FFBFBFBF00008080008000008080008000008000008000008000008000008000
          00803F3700408080800080BFBFBFBFBFBFBFBFBFBFBFBF0000008000FFFFC8CF
          8000808000808000808000808000808000808000808000808000808000808000
          803F37003F3700800080BFBFBFBFBFBFBFBFBF0000008000FFBFBFBF8000FF80
          00FF0000FF0000FF0000FF8000FF0000FF8000FF0000FF0000FF0000FF0000FF
          000080800080BFBFBFBFBFBFBFBFBF0000008000FFFFC8CF8000FF8000FF8000
          FF0000FF8000FFFFC8CF8000FFFFC8CF8000FFFFC8CF8000FFFFC8CF80008000
          0080BFBFBFBFBFBFBFBFBF0000008000FFBFBFBF8000FF8000FFFFC8CF8000FF
          FFC8CF8000FFFFC8CF8000FFFFC8CF8000FFFFC8CF800080000080BFBFBFBFBF
          BFBFBFBFBFBFBF0000008000FFFFC8CFBFBFBFFFC8CFBFBFBFFFC8CF8000FFFF
          C8CF8000FFFFC8CF8000FFFFC8CF800080000080BFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBF0000000000FF0000FF0000FF0000FF0000FFBFBFBFFFC8CF8000FFFFC8
          CF8000FFFFC8CF000080000080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          0000BFBFBFBFBFBFBFBFBFBFBFBF8000FFFFC8CF8000FFFFC8CF8000FFFFC8CF
          000080800080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBF
          BFBFBFBFBFBFBFBFBFBF8000FFBFBFBFFFC8CF8000FFFFC8CF000080800080BF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
          BFBFBFBFBFBF8000FFFFC8CF8000FFFFC8CF000080800080BFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
          BFBF8000FFBFBFBFFFC8CF000080800080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF0000
          FF0000FF000080800080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF0000FF800080
          800080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBF000000}
        Layout = blGlyphTop
        Transparent = False
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 392
        Top = 402
        Width = 64
        Height = 40
        Caption = 'Pr'#243'ximo'
        Flat = True
        Glyph.Data = {
          E6040000424DE604000000000000360000002800000013000000140000000100
          180000000000B0040000CA0E0000C30E00000000000000000000BFBFBFBFBFBF
          BFBFBF7F7F7F7F7F7F3F370060302F7F7F00BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF7F7F7F7F
          7F7F007F00007F003F370060302F7F7F007F7F7F7F7F7F7F7F7FBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF7F7F7F7F7F7F7F7F7F007F
          00A0983F007F003F370060302F7F7F007F7F7F7F7F7F7F7F7F7F7F7F7F7F7FBF
          BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF007F00A0983F
          007F00007F003F370060302F7F7F007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F7FBFBFBF000000007F003F37003F37003F37003F3700A0983F007F0000
          7F00007F003F37003F37007F7F007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F00000000FF0000FF00007F00A0983F007F00A0983F007F00007F00007F
          00007F003F37003F37007F7F00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          000000FF00FFC8CFA0983F007F00A0983F007F00007F00007F00007F00007F00
          007F003F37003F37007F7F00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000090FF
          2FBFBFBF007F00A0983F007F00A0983F007F00007F00007F00007F00007F0000
          7F003F37003F37007F7F00BFBFBFBFBFBFBFBFBFBFBFBF00000090FF2FFFC8CF
          A0983FA0983FA0983FA0983FA0983FA0983FA0983FA0983FA0983FA0983FA098
          3F3F37003F37007F7F00BFBFBFBFBFBFBFBFBF00000090FF2FBFBFBF90FF2F90
          FF2F00FF0000FF0000FF0090FF2F00FF0090FF2F00FF0000FF0000FF0000FF00
          007F007F7F00BFBFBFBFBFBFBFBFBF00000090FF2FFFC8CF90FF2F90FF2F90FF
          2F00FF0090FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CF7F7F0000
          7F00BFBFBFBFBFBFBFBFBF00000090FF2FBFBFBF90FF2F90FF2FFFC8CF90FF2F
          FFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CF7F7F00007F00BFBFBFBFBF
          BFBFBFBFBFBFBF00000090FF2FFFC8CFBFBFBFFFC8CFBFBFBFFFC8CF90FF2FFF
          C8CF90FF2FFFC8CF90FF2FFFC8CF7F7F00007F00BFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBF00000000FF0000FF0000FF0000FF0000FF00BFBFBFFFC8CF90FF2FFFC8
          CF90FF2FFFC8CF007F00007F00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          0000BFBFBFBFBFBFBFBFBFBFBFBF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CF
          007F00A0983FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBF
          BFBFBFBFBFBFBFBFBFBF90FF2FBFBFBFFFC8CF90FF2FFFC8CF007F00A0983FBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
          BFBFBFBFBFBF90FF2FFFC8CF90FF2FFFC8CF007F00A0983FBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
          BFBF90FF2FBFBFBFFFC8CF007F00A0983FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF00FF
          0000FF00007F00A0983FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF00FF007F7F00
          A0983FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBF23EC48}
        Layout = blGlyphTop
        Transparent = False
        OnClick = SpeedButton4Click
      end
      object Label1: TLabel
        Left = 170
        Top = 47
        Width = 84
        Height = 13
        Caption = 'Tipo ...................:'
      end
      object Label6: TLabel
        Left = 611
        Top = 46
        Width = 104
        Height = 13
        Caption = 'Frequencia Cardiaca :'
      end
      object Label2: TLabel
        Left = 6
        Top = 11
        Width = 80
        Height = 13
        Caption = 'Codigo Cliente...:'
      end
      object Label13: TLabel
        Left = 674
        Top = 122
        Width = 38
        Height = 13
        Caption = 'Label13'
      end
      object Label14: TLabel
        Left = 418
        Top = 46
        Width = 66
        Height = 13
        Caption = 'Altura ...........:'
      end
      object Label15: TLabel
        Left = 418
        Top = 68
        Width = 66
        Height = 13
        Caption = 'Peso ............:'
      end
      object Label31: TLabel
        Left = 170
        Top = 11
        Width = 86
        Height = 13
        Caption = 'M'#233'dico................:'
      end
      object Label30: TLabel
        Left = 611
        Top = 91
        Width = 104
        Height = 13
        Caption = 'Prox. Exame .............:'
      end
      object DBRadioGroup1: TDBRadioGroup
        Left = 7
        Top = 400
        Width = 225
        Height = 40
        Columns = 3
        DataField = 'STATUS'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Items.Strings = (
          'ASO'
          'APTO'
          'INAPTO')
        ParentFont = False
        TabOrder = 13
        Values.Strings = (
          'ASO'
          'APTO'
          'INAPTO')
        Visible = False
      end
      object DBMemo1: TDBMemo
        Left = 7
        Top = 114
        Width = 780
        Height = 99
        DataField = 'HISTORICO'
        DataSource = DtSrc
        TabOrder = 10
      end
      object FacDBEdit3: TFacDBEdit
        Left = 489
        Top = 87
        Width = 69
        Height = 21
        AutoSelect = False
        DataField = 'TEMPERATURA'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnKeyPress = FormKeyPress
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
      object FacDBEdit4: TFacDBEdit
        Left = 718
        Top = 43
        Width = 69
        Height = 21
        AutoSelect = False
        DataField = 'FREQ_CARDIACA'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnKeyPress = FormKeyPress
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
      object FacDBEdit5: TFacDBEdit
        Left = 718
        Top = 65
        Width = 69
        Height = 21
        AutoSelect = False
        DataField = 'PRESSAO'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnKeyPress = FormKeyPress
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
      object DBMemo2: TDBMemo
        Left = 7
        Top = 232
        Width = 780
        Height = 81
        DataField = 'EXAMES'
        DataSource = DtSrc
        TabOrder = 11
      end
      object DBMemo4: TDBMemo
        Left = 7
        Top = 332
        Width = 780
        Height = 65
        DataField = 'NEST_CONSULTA'
        DataSource = DtSrc
        TabOrder = 12
        OnExit = DBMemo4Exit
      end
      object FacDBEdit1: TFacDBEdit
        Left = 87
        Top = 7
        Width = 69
        Height = 21
        TabStop = False
        AutoSelect = False
        Color = clInfoBk
        DataField = 'COD_PACIENTE'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
      object FacDBEdit2: TFacDBEdit
        Left = 665
        Top = 7
        Width = 124
        Height = 21
        AutoSelect = False
        DataField = 'DATA_CONSULTA'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
      object FacDBEdit6: TFacDBEdit
        Left = 715
        Top = 403
        Width = 71
        Height = 21
        AutoSelect = False
        DataField = 'VALOR_CONSULTA'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 14
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
      object Memo1: TMemo
        Left = 239
        Top = 160
        Width = 385
        Height = 129
        Lines.Strings = (
          'Memo1')
        TabOrder = 15
        Visible = False
      end
      object GroupBox1: TGroupBox
        Left = 295
        Top = 186
        Width = 137
        Height = 85
        Caption = 'Data Retorno'
        TabOrder = 16
        Visible = False
        object FacDBEdit8: TFacDBEdit
          Left = 17
          Top = 14
          Width = 99
          Height = 21
          AutoSelect = False
          DataField = 'DATA_RETORNO1'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          CaseMode = cmUpperCase
          ColorOnFocus = clAqua
          EnterLikeTab = True
        end
        object FacDBEdit9: TFacDBEdit
          Left = 17
          Top = 36
          Width = 99
          Height = 21
          AutoSelect = False
          DataField = 'DATA_RETORNO2'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          CaseMode = cmUpperCase
          ColorOnFocus = clAqua
          EnterLikeTab = True
        end
      end
      object DBComboBox2: TDBComboBox
        Left = 257
        Top = 43
        Width = 124
        Height = 21
        DataField = 'TIPO'
        DataSource = DtSrc
        ItemHeight = 13
        Items.Strings = (
          'CONSULTA'
          'RETORNO'
          'ADMISSIONAL'
          'PERI'#211'DICO'
          'DEMISSIONAL'
          'RETORNO AO TRABALHO'
          'MUDAN'#199'A DE FUN'#199#195'O')
        TabOrder = 3
        OnExit = DBComboBox2Exit
        OnKeyPress = FormKeyPress
      end
      object FacDBEdit10: TFacDBEdit
        Left = 489
        Top = 43
        Width = 69
        Height = 21
        AutoSelect = False
        DataField = 'ALTURA'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnKeyPress = FormKeyPress
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
      object FacDBEdit11: TFacDBEdit
        Left = 489
        Top = 65
        Width = 69
        Height = 21
        AutoSelect = False
        DataField = 'PESO'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnKeyPress = FormKeyPress
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
      object DBLookupComboBox3: TDBLookupComboBox
        Left = 257
        Top = 7
        Width = 302
        Height = 21
        DataField = 'COD_MEDICO'
        DataSource = DtSrc
        KeyField = 'COD_MEDICO'
        ListField = 'NOME_MEDICO'
        ListSource = dsMedico
        TabOrder = 1
        OnKeyPress = FormKeyPress
      end
      object FacDBEdit12: TFacDBEdit
        Left = 718
        Top = 87
        Width = 69
        Height = 21
        AutoSelect = False
        DataField = 'DATA_RETORNO'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        OnKeyPress = FormKeyPress
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
    end
    object TabSheet2: TTabSheet
      Caption = '   INFORMA'#199#213'ES ADICIONAIS   '
      ImageIndex = 1
      TabVisible = False
      object Label16: TLabel
        Left = 113
        Top = 48
        Width = 62
        Height = 13
        Caption = 'Empresa......:'
      end
      object Label17: TLabel
        Left = 346
        Top = 78
        Width = 63
        Height = 13
        Caption = 'Fun'#231#227'o........:'
      end
      object Label18: TLabel
        Left = 113
        Top = 78
        Width = 62
        Height = 13
        Caption = 'Tempo serv.:'
      end
      object Label19: TLabel
        Left = 277
        Top = 119
        Width = 110
        Height = 13
        Caption = 'Senso Crom'#225'tico ........:'
      end
      object Label20: TLabel
        Left = 113
        Top = 119
        Width = 82
        Height = 13
        Caption = 'Campo Visual ....:'
      end
      object Label25: TLabel
        Left = 287
        Top = 159
        Width = 108
        Height = 13
        Caption = 'Acidente de Trabalho :'
      end
      object Label26: TLabel
        Left = 201
        Top = 159
        Width = 26
        Height = 13
        Caption = 'LTS :'
      end
      object Label27: TLabel
        Left = 113
        Top = 159
        Width = 31
        Height = 13
        Caption = 'INSS :'
      end
      object Label28: TLabel
        Left = 113
        Top = 207
        Width = 44
        Height = 13
        Caption = 'EPI....... :'
      end
      object Label29: TLabel
        Left = 110
        Top = 375
        Width = 59
        Height = 13
        Caption = 'Restri'#231#245'es..:'
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 176
        Top = 48
        Width = 506
        Height = 21
        DataField = 'EMPRESA'
        DataSource = DtSrc
        KeyField = 'CONVENIO'
        ListField = 'CONVENIO'
        ListSource = DataSource1
        TabOrder = 0
        OnKeyPress = FormKeyPress
      end
      object DBEdit1: TDBEdit
        Left = 176
        Top = 78
        Width = 162
        Height = 21
        DataField = 'TEMPOSERVICO'
        DataSource = DtSrc
        TabOrder = 1
        OnKeyPress = FormKeyPress
      end
      object DBEdit3: TDBEdit
        Left = 390
        Top = 119
        Width = 73
        Height = 21
        DataField = 'SENSOCROMATICO'
        DataSource = DtSrc
        TabOrder = 4
        OnKeyPress = FormKeyPress
      end
      object DBEdit4: TDBEdit
        Left = 196
        Top = 119
        Width = 73
        Height = 21
        DataField = 'CAMPOVISUAL'
        DataSource = DtSrc
        TabOrder = 3
        OnKeyPress = FormKeyPress
      end
      object GroupBox2: TGroupBox
        Left = 472
        Top = 114
        Width = 210
        Height = 55
        Caption = 'Acuidade Visual'
        TabOrder = 5
        object Label22: TLabel
          Left = 105
          Top = 24
          Width = 33
          Height = 13
          Caption = 'olho E:'
        end
        object Label21: TLabel
          Left = 14
          Top = 24
          Width = 34
          Height = 13
          Caption = 'olho D:'
        end
        object DBEdit5: TDBEdit
          Left = 139
          Top = 19
          Width = 49
          Height = 21
          DataField = 'ACUIDADE_OLHOE'
          DataSource = DtSrc
          TabOrder = 1
          OnKeyPress = FormKeyPress
        end
        object DBEdit6: TDBEdit
          Left = 51
          Top = 19
          Width = 49
          Height = 21
          DataField = 'ACUIDADE_OLHOD'
          DataSource = DtSrc
          TabOrder = 0
          OnKeyPress = FormKeyPress
        end
      end
      object GroupBox3: TGroupBox
        Left = 472
        Top = 174
        Width = 210
        Height = 55
        Caption = 'Dinamometria em Kgf'
        TabOrder = 9
        object Label24: TLabel
          Left = 16
          Top = 25
          Width = 34
          Height = 13
          Caption = 'm'#227'o D:'
        end
        object Label23: TLabel
          Left = 105
          Top = 25
          Width = 33
          Height = 13
          Caption = 'm'#227'o E:'
        end
        object DBEdit7: TDBEdit
          Left = 53
          Top = 20
          Width = 49
          Height = 21
          DataField = 'DINAMOMETRIA_MAOD'
          DataSource = DtSrc
          TabOrder = 0
          OnKeyPress = FormKeyPress
        end
        object DBEdit8: TDBEdit
          Left = 140
          Top = 20
          Width = 49
          Height = 21
          DataField = 'DINAMOMETRIA_MAOE'
          DataSource = DtSrc
          TabOrder = 1
          OnKeyPress = FormKeyPress
        end
      end
      object DBEdit9: TDBEdit
        Left = 397
        Top = 159
        Width = 65
        Height = 21
        DataField = 'ACIDENTETRAB'
        DataSource = DtSrc
        TabOrder = 8
        OnKeyPress = FormKeyPress
      end
      object DBEdit10: TDBEdit
        Left = 228
        Top = 159
        Width = 54
        Height = 21
        DataField = 'LTS'
        DataSource = DtSrc
        TabOrder = 7
        OnKeyPress = FormKeyPress
      end
      object DBEdit11: TDBEdit
        Left = 144
        Top = 159
        Width = 54
        Height = 21
        DataField = 'INSS'
        DataSource = DtSrc
        TabOrder = 6
        OnKeyPress = FormKeyPress
      end
      object DBEdit12: TDBEdit
        Left = 157
        Top = 207
        Width = 304
        Height = 21
        DataField = 'EPI'
        DataSource = DtSrc
        TabOrder = 10
        OnKeyPress = FormKeyPress
      end
      object DBEdit14: TDBEdit
        Left = 172
        Top = 375
        Width = 508
        Height = 21
        DataField = 'RESTRICOES'
        DataSource = DtSrc
        TabOrder = 13
        OnExit = DBEdit14Exit
        OnKeyPress = FormKeyPress
      end
      object DBEdit2: TDBEdit
        Left = 412
        Top = 78
        Width = 270
        Height = 21
        DataField = 'FUNCAO'
        DataSource = DtSrc
        TabOrder = 2
        OnKeyPress = FormKeyPress
      end
      object dxButton1: TdxButton
        Left = 608
        Top = 408
        About = 'Design eXperience. '#169' 2002 M. Hoffmann'
        Version = '1.0.2e'
        OnClick = dxButton1Click
        Caption = 'Voltar'
        Glyph.Data = {
          E6040000424DE604000000000000360000002800000013000000140000000100
          180000000000B0040000C30E0000C30E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F006030
          2F3F37007F7F7F7F7F7FBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBF7F7F7F7F7F7F7F7F7F7F7F0060302F3F3700007F00
          007F007F7F7F7F7F7FBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF7F7F
          7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F0060302F3F3700007F00A0983F007F007F
          7F7F7F7F7F7F7F7FBFBFBF000000BFBFBF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F7F7F7F7F7F7F7F0060302F3F3700007F00007F00A0983F007F00BFBFBFBFBF
          BFBFBFBFBFBFBF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
          7F003F37003F3700007F00007F00007F00A0983F3F37003F37003F37003F3700
          007F00000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F003F37003F37
          00007F00007F00007F00007F00A0983F007F00A0983F007F0000FF0000FF0000
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F003F37003F3700007F00007F00
          007F00007F00007F00007F00A0983F007F00A0983FFFC8CF00FF00000000BFBF
          BFBFBFBFBFBFBFBFBFBF7F7F003F37003F3700007F00007F00007F00007F0000
          7F00007F00A0983F007F00A0983F007F00BFBFBF90FF2F000000BFBFBFBFBFBF
          BFBFBF7F7F003F37003F3700A0983FA0983FA0983FA0983FA0983FA0983FA098
          3FA0983FA0983FA0983FA0983FFFC8CF90FF2F000000BFBFBFBFBFBFBFBFBF7F
          7F00007F0000FF0000FF0000FF0000FF0090FF2F00FF0090FF2F00FF0000FF00
          00FF0090FF2F90FF2FBFBFBF90FF2F000000BFBFBFBFBFBFBFBFBF007F007F7F
          00FFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2F00FF0090FF2F90
          FF2F90FF2FFFC8CF90FF2F000000BFBFBFBFBFBFBFBFBFBFBFBF007F007F7F00
          FFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CF90FF2F90FF
          2FBFBFBF90FF2F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF007F007F7F00FF
          C8CF90FF2FFFC8CF90FF2FFFC8CF90FF2FFFC8CFBFBFBFFFC8CFBFBFBFFFC8CF
          90FF2F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF007F00007F00FFC8
          CF90FF2FFFC8CF90FF2FFFC8CFBFBFBF00FF0000FF0000FF0000FF0000FF0000
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F007F00FFC8CF
          90FF2FFFC8CF90FF2FFFC8CF90FF2FBFBFBFBFBFBFBFBFBFBFBFBF000000BFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F007F00FFC8CF90
          FF2FFFC8CFBFBFBF90FF2FBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F007F00FFC8CF90FF
          2FFFC8CF90FF2FBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F007F00FFC8CFBFBFBF
          90FF2FBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F007F0000FF0000FF00BF
          BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFA0983F7F7F0000FF00BFBFBFBFBF
          BFBFBFBFBFBFBF000000}
        TabOrder = 14
      end
      object GroupBox4: TGroupBox
        Left = 110
        Top = 319
        Width = 573
        Height = 47
        Caption = 'Riscos'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 12
        object DBCheckBox6: TDBCheckBox
          Left = 49
          Top = 18
          Width = 65
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Qu'#237'mico'
          DataField = 'QUIMICO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox7: TDBCheckBox
          Left = 149
          Top = 18
          Width = 50
          Height = 17
          Alignment = taLeftJustify
          Caption = 'F'#237'sico'
          DataField = 'FISICO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox8: TDBCheckBox
          Left = 235
          Top = 18
          Width = 73
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Biol'#243'gico'
          DataField = 'BIOLOGICO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox9: TDBCheckBox
          Left = 344
          Top = 18
          Width = 76
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Ergon'#244'mico'
          DataField = 'ERGONOMICO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox10: TDBCheckBox
          Left = 455
          Top = 18
          Width = 69
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Mec'#226'nico'
          DataField = 'MECANICO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
      end
      object GroupBox5: TGroupBox
        Left = 110
        Top = 229
        Width = 573
        Height = 88
        Caption = 'Exames'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 11
        object DBCheckBox1: TDBCheckBox
          Left = 14
          Top = 24
          Width = 89
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Exame de Lab.'
          DataField = 'EXAMELAB'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          ValueChecked = 'False'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBEdit15: TDBEdit
          Left = 106
          Top = 24
          Width = 87
          Height = 21
          DataField = 'DTA1'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox2: TDBCheckBox
          Left = 208
          Top = 24
          Width = 75
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Audiometria'
          DataField = 'AUDIOMETRIA'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          ValueChecked = 'False'
          ValueUnchecked = 'True'
          OnKeyPress = FormKeyPress
        end
        object DBEdit16: TDBEdit
          Left = 286
          Top = 24
          Width = 87
          Height = 21
          DataField = 'DTA2'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox3: TDBCheckBox
          Left = 394
          Top = 24
          Width = 78
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Espirometria'
          DataField = 'ESPIROMETRIA'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          ValueChecked = 'False'
          ValueUnchecked = 'True'
          OnKeyPress = FormKeyPress
        end
        object DBEdit17: TDBEdit
          Left = 477
          Top = 24
          Width = 87
          Height = 21
          DataField = 'DTA3'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox4: TDBCheckBox
          Left = 50
          Top = 56
          Width = 52
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Raio X'
          DataField = 'RAIOX'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBEdit18: TDBEdit
          Left = 106
          Top = 56
          Width = 87
          Height = 21
          DataField = 'DTA4'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox5: TDBCheckBox
          Left = 231
          Top = 56
          Width = 52
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Outros'
          DataField = 'OUTROS'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBEdit13: TDBEdit
          Left = 286
          Top = 56
          Width = 186
          Height = 21
          DataField = 'OUTROSEXAME'
          DataSource = DtSrc
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
          OnKeyPress = FormKeyPress
        end
        object DBEdit19: TDBEdit
          Left = 477
          Top = 56
          Width = 87
          Height = 21
          DataField = 'DTA5'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 10
          OnKeyPress = FormKeyPress
        end
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = DM.cds_consulta
    Left = 732
    Top = 353
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    Left = 667
    Top = 16
  end
  object sds_consulta: TSQLDataSet
    CommandText = 
      'select cons.*,pac.NOME '#13#10'from CONSULTA cons '#13#10'left outer join PA' +
      'CIENTE pac '#13#10'on pac.COD_PACIENTE=cons.COD_PACIENTE '#13#10'where cons.' +
      'COD_PACIENTE = :pcod '#13#10'order by cons.COD_CONSULTA'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 731
    Top = 256
    object sds_consultaCOD_CONSULTA: TIntegerField
      FieldName = 'COD_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_consultaCOD_PACIENTE: TIntegerField
      FieldName = 'COD_PACIENTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sds_consultaHISTORICO: TBlobField
      FieldName = 'HISTORICO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object sds_consultaEXAMES: TBlobField
      FieldName = 'EXAMES'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object sds_consultaPRESSAO: TStringField
      FieldName = 'PRESSAO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 10
    end
    object sds_consultaTEMPERATURA: TStringField
      FieldName = 'TEMPERATURA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 10
    end
    object sds_consultaFREQ_CARDIACA: TStringField
      FieldName = 'FREQ_CARDIACA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 10
    end
    object sds_consultaANT_USADO: TBlobField
      FieldName = 'ANT_USADO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object sds_consultaNEST_CONSULTA: TBlobField
      FieldName = 'NEST_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object sds_consultaDATA_CONSULTA: TDateField
      FieldName = 'DATA_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sds_consultaDATA_RETORNO: TDateField
      FieldName = 'DATA_RETORNO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sds_consultaVALOR_CONSULTA: TFloatField
      FieldName = 'VALOR_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sds_consultaNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInKey]
      Size = 60
    end
    object sds_consultaSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 15
    end
    object sds_consultaHIST_ANT: TBlobField
      FieldName = 'HIST_ANT'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object sds_consultaEX_ANT: TBlobField
      FieldName = 'EX_ANT'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object sds_consultaMED_ANT: TBlobField
      FieldName = 'MED_ANT'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object sds_consultaDATA_RETORNO1: TDateField
      FieldName = 'DATA_RETORNO1'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sds_consultaDATA_RETORNO2: TDateField
      FieldName = 'DATA_RETORNO2'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
  end
  object dsp_consulta: TDataSetProvider
    DataSet = sds_consulta
    UpdateMode = upWhereKeyOnly
    Left = 731
    Top = 288
  end
  object cds_consulta: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_consulta'
    Left = 731
    Top = 320
    object cds_consultaCOD_CONSULTA: TIntegerField
      FieldName = 'COD_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '000'
    end
    object cds_consultaCOD_PACIENTE: TIntegerField
      FieldName = 'COD_PACIENTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '000'
    end
    object cds_consultaHISTORICO: TBlobField
      FieldName = 'HISTORICO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object cds_consultaEXAMES: TBlobField
      FieldName = 'EXAMES'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object cds_consultaPRESSAO: TStringField
      FieldName = 'PRESSAO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 10
    end
    object cds_consultaTEMPERATURA: TStringField
      FieldName = 'TEMPERATURA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 10
    end
    object cds_consultaFREQ_CARDIACA: TStringField
      FieldName = 'FREQ_CARDIACA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 10
    end
    object cds_consultaANT_USADO: TBlobField
      FieldName = 'ANT_USADO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object cds_consultaNEST_CONSULTA: TBlobField
      FieldName = 'NEST_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object cds_consultaDATA_CONSULTA: TDateField
      FieldName = 'DATA_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      EditMask = '!99/99/00;1;_'
    end
    object cds_consultaDATA_RETORNO: TDateField
      FieldName = 'DATA_RETORNO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      EditMask = '!99/99/00;1;_'
    end
    object cds_consultaVALOR_CONSULTA: TFloatField
      FieldName = 'VALOR_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = ',#0.00'
    end
    object cds_consultaNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInKey]
      Size = 60
    end
    object cds_consultaSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 15
    end
    object cds_consultaHIST_ANT: TBlobField
      FieldName = 'HIST_ANT'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object cds_consultaEX_ANT: TBlobField
      FieldName = 'EX_ANT'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object cds_consultaMED_ANT: TBlobField
      FieldName = 'MED_ANT'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 1
    end
    object cds_consultaDATA_RETORNO1: TDateField
      FieldName = 'DATA_RETORNO1'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_consultaDATA_RETORNO2: TDateField
      FieldName = 'DATA_RETORNO2'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
  end
  object dsMedico: TDataSource
    DataSet = DM.cds_medico
    Left = 699
    Top = 16
  end
  object SQLDataSet1: TSQLDataSet
    CommandText = 
      'select * from CONVENIO '#13#10'where ((CONVENIO = :pcod) or (:pcod = '#39 +
      'todos'#39')) '#13#10'and TIPO = '#39'EMPRESA'#39
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 88
    Top = 112
    object SQLDataSet1CONVENIO: TStringField
      FieldName = 'CONVENIO'
      Required = True
      Size = 50
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLDataSet1
    UpdateMode = upWhereKeyOnly
    Left = 56
    Top = 112
  end
  object cds_convenio: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'DataSetProvider1'
    Left = 120
    Top = 144
    object cds_convenioCONVENIO: TStringField
      FieldName = 'CONVENIO'
      Required = True
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = cds_convenio
    Left = 120
    Top = 112
  end
end
